home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / miscstat.arc / CHSQDIST.BAS < prev    next >
BASIC Source File  |  1986-04-25  |  933b  |  36 lines
  1. 1 'CHi-SQuare DISTribution
  2. 2 KEY OFF:SCREEN 0,1,0:WIDTH 40:COLOR 15,1,9:CLS
  3. 10  PRINT "CHI-SQUARE DISTRIBUTION"
  4. 20  PRINT 
  5. 30  PRINT "(TO END PROGRAM ENTER 0)"
  6. 40  PRINT "DEGREES OF FREEDOM";
  7. 50  INPUT V:V=ABS(V)
  8. 60  IF V = 0 THEN 280
  9. 70  PRINT "CHI-SQUARE";
  10. 80  INPUT W
  11. 90 R = 1
  12. 100  FOR I = V TO 2 STEP  - 2
  13. 110 F = F * I
  14. 120  NEXT I
  15. 130 K = W ^ ( INT ((V + 1) / 2)) *  EXP ( - W / 2) / R
  16. 140  IF  INT (V / 2) = V / 2 THEN 180
  17. 150 J =  SQR (2 / W / 3.1415927#)
  18. 160  GOTO 180
  19. 180 L = 1
  20. 190 M = 1
  21. 200 V = V + 2
  22. 210 M = M * W / V
  23. 220  IF M < .0000001 THEN 250
  24. 230 L = L + M
  25. 240  GOTO 200
  26. 250 PRINT:PRINT "TAIL END VALUE IS"1 - J * K * L
  27. 255  PRINT "PERCENTILE IS"J * K * L
  28. 260  PRINT 
  29. 270  GOTO 40
  30. 280 PRINT:LOCATE 24,1:PRINT"PRESS <SPACE> TO RUN AGAIN";
  31. 290 LOCATE 25,1:PRINT"PRESS <ESC> TO EXIT";
  32. 300 K$=INKEY$:IF K$="" THEN 300
  33. 310 IF K$=" " THEN RUN
  34. 320 IF K$<>CHR$(27) THEN 300
  35. 10000 RUN"MENU
  36.